BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Ss-Sz/Student HomeCard™ 3.0.cpt/Student HomeCard™ 3.0/For 12" RGB Monitors/Home/background_6552.xml

Extensible Markup Language | 1992-02-21 | 45KB | 592 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>6552</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3565.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3283.css" />
    <part>
        <id>78</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>106</left>
            <top>60</top>
            <right>216</right>
            <bottom>92</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Copyright</name>
        <script></script>
    </part>
    <part>
        <id>79</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>12</left>
            <top>183</top>
            <right>232</right>
            <bottom>315</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Apps for Docs</name>
        <script>on mouseUphide meend mouseUp</script>
    </part>
    <part>
        <id>81</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>7</left>
            <top>327</top>
            <right>63</right>
            <bottom>379</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>7595</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Eject Disk</name>
        <script>on mouseupglobal secondlistput empty into secondlistput SystemFolder() into CurrentSystemrepeat with N = 1 to number of chars of CurrentSystemif char N of CurrentSystem = ":"then exit repeatelse put char N of CurrentSystem after Beetlejuiceend repeatput LocalVolumeList() into ListOfVolumesrepeat with X = 1 to number of lines of ListOfVolumesput item 1 of line x of ListOfVolumes into currentcheckput DiskIsRemovable(currentcheck,"noDialog:errGlobal") into remvstateif remvstate is not "true"thenelseput currentcheck & return after SecondListend ifend repeatif secondlist is not emptythenput SecondList into ListOfVolumeselseanswer "No available disks may be ejected." with "OK"exit mouseupend ifget showList(ListOfVolumes,return,¬return & "Select a disk to eject:",false,"Eject,Cancel")if line 1 of it is "Cancel" or line 2 of it is emptythen exit mouseupelseif beetlejuice contains item 1 of line 2 of itthenEjector 1elseEjectDisk item 1 of line 2 of itend ifend ifend mouseup</script>
    </part>
    <part>
        <id>83</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>450</left>
            <top>327</top>
            <right>506</right>
            <bottom>379</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23156</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Shutdown</name>
        <script>on mouseUprepeat with x = 1200 down to 1put "Type Command to Cancel " && " Time Remaining Until Shutdown:" && round(x/60)if the commandkey is downthenhide msgexit to hypercardend ifend repeatshutdownend mouseUp</script>
    </part>
    <part>
        <id>84</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>388</left>
            <top>327</top>
            <right>444</right>
            <bottom>379</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>30919</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Restart</name>
        <script>on mouseUpglobal SuperUglobal dResultput line 1 of cd field "Password Field" of cd id 6381 into tempestif SuperU is truethendorestartend ifput return into CR-- --------------------------------- Items in Dialog: "SHCPassword"-- --------------------------------- 1 ◊ Button "OK"-- 2 ◊ Button "Cancel"-- 3 ◊ Static Text ""-- 4 ◊ Static Text "Enter Admin Password:"-- 5 ◊ Protected Editable Text ""-- 6 ◊ Picture "129"-- -------------------------------put Dialoger("SHCPassword"& return & "on PassWordHit"¬, "5◊protected"¬) into dResultif line 2 of dResult ≠ ""thenexit mouseUpelsedorestartend ifend mouseUp</script>
    </part>
    <part>
        <id>85</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>326</left>
            <top>327</top>
            <right>382</right>
            <bottom>379</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>128</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Quit</name>
        <script>on mouseUpglobal SuperUglobal dResultput line 1 of cd field "Password Field" of cd id 6381 into tempestif SuperU is truethenenable menuitem 14 of menu "File"domenu "Quit HyperCard"end ifput return into CR-- --------------------------------- Items in Dialog: "SHCPassword"-- --------------------------------- 1 ◊ Button "OK"-- 2 ◊ Button "Cancel"-- 3 ◊ Static Text ""-- 4 ◊ Static Text "Enter Admin Password:"-- 5 ◊ Protected Editable Text ""-- 6 ◊ Picture "129"-- -------------------------------put Dialoger("SHCPassword"& return & "on PassWordHit"¬, "5◊protected"¬) into dResultif line 2 of dResult ≠ ""thenexit mouseUpelseput true into SuperUenable menuitem 14 of menu "File"domenu "Quit HyperCard"end ifend mouseUp</script>
    </part>
    <part>
        <id>86</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>140</left>
            <top>331</top>
            <right>254</right>
            <bottom>375</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mousestilldownget the mousehput the rect of me into MyRectput item 2 of MyRect into MyHeightput MyHeight + 17 into MyHeightput item 1 of MyRect into MySlideif it ≥ MySlide+11 and it ≤ MySlide+17thenset the loc of bg button id 87 to MySlide+11,MyHeightput 0 into VolumeValueelse if it ≥ MySlide+18 and it ≤ MySlide+30thenset the loc of bg button id 87 to MySlide+24,MyHeightput 1 into VolumeValueelse if it ≥ MySlide+31 and it ≤ MySlide+43thenset the loc of bg button id 87 to MySlide+37,MyHeightput 2 into VolumeValueelse if it ≥ MySlide+44 and it ≤ MySlide+56thenset the loc of bg button id 87 to MySlide+50,MyHeightput 3 into VolumeValueelse if it ≥ MySlide+57 and it ≤ MySlide+69thenset the loc of bg button id 87 to MySlide+63,MyHeightput 4 into VolumeValueelse if it ≥ MySlide+70 and it ≤ MySlide+82thenset the loc of bg button id 87 to MySlide+76,MyHeightput 5 into VolumeValueelse if it ≥ MySlide+83 and it ≤ MySlide+95thenset the loc of bg button id 87 to MySlide+89,MyHeightput 6 into VolumeValueelse if it ≥ MySlide+96 and it ≤ MySlide+102thenset the loc of bg button id 87 to MySlide+102,MyHeightput 7 into VolumeValueelse if it < MySlide+11thenset the loc of bg button id 87 to MySlide+11,MyHeightput 0 into VolumeValueelseset the loc of bg button id 87 to MySlide+102,MyHeightput 7 into VolumeValueend ifSetVolume "©1988SDrazga",VolumeValueend mousestilldownon mouseupbeep 2end mouseup</script>
    </part>
    <part>
        <id>87</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>234</left>
            <top>337</top>
            <right>251</right>
            <bottom>360</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>4125</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Slider</name>
        <script>on mousestilldownget the mousehput the rect of bg button id 86 into MyRectput item 2 of MyRect into MyHeightput MyHeight + 17 into MyHeightput item 1 of MyRect into MySlideif it ≥ MySlide+11 and it ≤ MySlide+17thenset the loc of me to MySlide+11,MyHeightput 0 into VolumeValueelse if it ≥ MySlide+18 and it ≤ MySlide+30thenset the loc of me to MySlide+24,MyHeightput 1 into VolumeValueelse if it ≥ MySlide+31 and it ≤ MySlide+43thenset the loc of me to MySlide+37,MyHeightput 2 into VolumeValueelse if it ≥ MySlide+44 and it ≤ MySlide+56thenset the loc of me to MySlide+50,MyHeightput 3 into VolumeValueelse if it ≥ MySlide+57 and it ≤ MySlide+69thenset the loc of me to MySlide+63,MyHeightput 4 into VolumeValueelse if it ≥ MySlide+70 and it ≤ MySlide+82thenset the loc of me to MySlide+76,MyHeightput 5 into VolumeValueelse if it ≥ MySlide+83 and it ≤ MySlide+95thenset the loc of me to MySlide+89,MyHeightput 6 into VolumeValueelse if it ≥ MySlide+96 and it ≤ MySlide+102thenset the loc of me to MySlide+102,MyHeightput 7 into VolumeValueelse if it < MySlide+11thenset the loc of me to MySlide+11,MyHeightput 0 into VolumeValueelseset the loc of me to MySlide+102,MyHeightput 7 into VolumeValueend ifSetVolume "©1988SDrazga",VolumeValueend mousestilldownon mouseupbeep 2end mouseup</script>
    </part>
    <part>
        <id>88</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>35</left>
            <top>26</top>
            <right>231</right>
            <bottom>52</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>18</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name>Title</name>
        <script>on mouseuphide meend mouseup</script>
    </part>
    <part>
        <id>89</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>302</left>
            <top>65</top>
            <right>422</right>
            <bottom>91</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Helvetica</font>
        <textSize>18</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name>HCContTimeDisplayHC</name>
        <script>function timeData-- this handler stores the time display data specified by the-- user. DO NOT MOVE THE POSITION OF THIS HANDLER!-- item 1: short,long time 2: card,bkgnd fieldreturn "the Short time,bkgnd"end timeDataon newfieldput word 1 of the long name of me into fieldTypeif fieldType is "Bkgnd" then set sharedText of me to trueput item 1 of timeData() into timeFormataddCardScript timeFormat,fieldTypeupdateTimeData timeFormat,fieldTypeend newfieldon deleteFieldremoveScriptend deleteFieldon addCardScript timeFormat,fieldTypeput "on idle" into theHandlerget script of fieldTypeif theHandler is in it thenif (fieldType && "field id" && id of me) is not in it thenput scriptBody(timeFormat,fieldType) & return after char ¬(offSet(theHandler,it) + length(theHandler)) of itset script of fieldType to itelseremoveScriptaddCardScript timeFormat,fieldTypeend ifelseif it ≠ empty thenif last char of it = return then put return after itelse put return & return after itend ifput "on idle" & return & scriptBody(timeFormat,fieldType) & ¬return & "pass idle" & return & "end idle" after itset script of fieldType to itend ifend addCardScripton removeScriptput item 1 of timeData() into timeFormatput item 2 of timeData() into fieldTypeput scriptBody(timeFormat,fieldType) into scriptChunkget script of fieldTypeif line 1 of scriptChunk is in it thenput offset(line 1 of scriptChunk,it) into startBlockput startBlock + length(scriptChunk) + 2 into endBlockdelete char startBlock to endBlock of itset script of fieldType to itend ifend removeScriptfunction scriptBody timeFormat,fieldTypereturn "if (there is a" && fieldType && "field id" && id of me & ")" && ¬"and (the selectedField is empty)" & return & "then put" && timeFormat && ¬"into" && fieldType && "field id" && id of meend scriptBodyon mouseUp-- ask user for time formatanswer "Set time format to:" with "Cancel" or "Long" or "Short" -- ∆if (the result ≠ empty) or (it = "Cancel") then exit mouseUp -- ∆put "the" && it && "time" into timeFormatput item 2 of timeData() into fieldTypeupdateTimeData timeFormat,fieldTypeaddCardScript timeFormat,fieldTypeend mouseUpon updateTimeData timeFormat,fieldType-- write time data back to the handler in this scriptget script of meput quote & timeFormat & "," & fieldType & quote into newDataput newData into char offset(quote,it) to (offSet("end",it) - 2) of itset script of me to itend updateTimeData</script>
    </part>
    <part>
        <id>91</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>463</left>
            <top>63</top>
            <right>499</right>
            <bottom>92</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>2001</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next Card</name>
        <script>on mouseUpvisual effect wipe leftgo next cd of this bgend mouseUp</script>
    </part>
    <part>
        <id>92</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>424</left>
            <top>63</top>
            <right>460</right>
            <bottom>92</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>28769</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next Card</name>
        <script>on mouseUpvisual effect wipe rightgo prev cd of this bgend mouseUp</script>
    </part>
    <part>
        <id>96</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>308</left>
            <top>32</top>
            <right>498</right>
            <bottom>56</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Section</name>
        <script></script>
    </part>
    <part>
        <id>95</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>307</left>
            <top>33</top>
            <right>477</right>
            <bottom>57</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Main Card  (1 of 1)</name>
        <script>on mousedownglobal AllCards,SuperUif SuperU is truethen MakePopUpListput line 1 of bg field id 96 into CheckedItemrepeat with x = 1 to number of items of AllCardsif item x of AllCards = CheckedItemthen put x into CheckedItemend repeatput (item 1 of the rect of bg button id 95) +1 into horizput (item 2 of the rect of bg button id 95) +1 into vertget wavesHPopup(CheckedItem,0,AllCards, vert, ¬horiz,"noDialog")if word 1 of item 1 of it = "Edit" and SuperU is truethenif bg field id 96 contains "Main Card"thenanswer "You cannot change the name of the" & return & "Main Card." with "Ok"exit mousedownelseask "Enter the new name for this card:" with line 1 of bg field id 96if it is "Cancel" or it is emptythenexit mousedownelseput it into bg field id 96send opencard to this cdMakePopUpListanswer "WARNING: Buttons you created for this card may no longer be named appropriately." with "OK"end ifend ifelsefind (item 1 of line 1 of it) in bg field id 96click at 0,0end ifend mousedown</script>
    </part>
    <part>
        <id>94</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>476</left>
            <top>33</top>
            <right>501</right>
            <bottom>57</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mousedownglobal AllCards,SuperUif SuperU is truethen MakePopUpListput line 1 of bg field id 96 into CheckedItemrepeat with x = 1 to number of items of AllCardsif item x of AllCards = CheckedItemthen put x into CheckedItemend repeatput (item 1 of the rect of bg button id 95) +1 into horizput (item 2 of the rect of bg button id 95) +1 into vertget wavesHPopup(CheckedItem,0,AllCards, vert, ¬horiz,"noDialog")if word 1 of item 1 of it = "Edit" and SuperU is truethenif bg field id 96 contains "Main Card"thenanswer "You cannot change the name of the" & return & "Main Card." with "Ok"exit mousedownelseask "Enter the new name for this card:" with line 1 of bg field id 96if it is "Cancel" or it is emptythenexit mousedownelseput it into bg field id 96send opencard to this cdMakePopUpListanswer "WARNING: Buttons you created for this card may no longer be named appropriately." with "OK"end ifend ifelsefind (item 1 of line 1 of it) in bg field id 96click at 0,0end ifend mousedown</script>
    </part>
    <part>
        <id>90</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>300</left>
            <top>1</top>
            <right>509</right>
            <bottom>94</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Courier</font>
        <textSize>24</textSize>
        <textStyle>bold</textStyle>
        <name>DONE</name>
        <script>on mouseUpglobal fullPathglobal TheName,buttonScriptpush cardset script of button TheName to buttonScriptset cursor to busyset lockscreen to truego card "Applications"go card "Documents"go card "Stacks"set lockmessages to truepop cardhide mehide msgset lockmessages to falseset lockscreen to falseend mouseUp</script>
    </part>
    <part>
        <id>97</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>243</left>
            <top>2</top>
            <right>294</right>
            <bottom>77</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Main Card</name>
        <script>on mouseUpif the short id of this cd = 6381thenanswer "This is the Main Card." with "Ok"elsevisual effect dissolve fastgo cd id 6381end ifend mouseUp</script>
    </part>
    <part>
        <id>98</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>70</left>
            <top>327</top>
            <right>126</right>
            <bottom>379</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>129</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>14</textSize>
        <textStyle>plain</textStyle>
        <name>Color</name>
        <script>--Sample script for invoking "COLOR"--Created on Thursday, February 13, 1992on mouseUpglobal dResult,IsColor,CDepthNum,CanColorput return into CR-- --------------------------------- Items in Dialog: "COLOR"-- --------------------------------- 1 ◊ Button "OK"-- 2 ◊ Button "Cancel"-- 3 ◊ Picture "130"-- 4 ◊ Styled Static Text "Change Color Depth:"-- 5 ◊ List ""-- 6 ◊ Radio Button "Grays"-- 7 ◊ Radio Button "Colors"-- -------------------------------put GetMode() into Cstatusif item 1 of Cstatus = "C"then put true into CurrentBorCelse put false into CurrentBorCput item 2 of CStatus into CDepthput item 3 of CStatus into ScreenNumif item 4 of Cstatus = "C"then put true into CanColorelse put false into CanColorput "1,2,4,8,32" into ColorDepthsif item 5 of CStatus = 1then put 1 into MaxDepthif item 5 of CStatus = 2then put 2 into MaxDepthif item 5 of CStatus = 4then put 3 into MaxDepthif item 5 of CStatus = 8then put 4 into MaxDepthif item 5 of CStatus = 32then put 5 into MaxDepthif item 2 of CStatus = 1then put 1 into CDepthNumif item 2 of CStatus = 2then put 2 into CDepthNumif item 2 of CStatus = 4then put 3 into CDepthNumif item 2 of CStatus = 8then put 4 into CDepthNumif item 2 of CStatus = 32then put 5 into CDepthNumput "B&W" & return & "4 Shades" & return & "16 Shades"¬& return & "256 Shades" & return & "Millions" into List1put line 1 to MaxDepth of List1 into List1put Dialoger("COLOR" & return & "On ColorHit"¬, "4◊StyledText Chicago,12,."¬, "7◊" & CurrentBorC¬, "6◊" & not CurrentBorC¬, "5◊userList Geneva,9" & CR & List1¬) into dResultif word 1 of dResult is "Error:" then answer dResultelse put dResult into cd field 1if line 5 of dresult is empty or line 2 of dresult is not emptythen exit mouseupput item (Line 5 of dresult) of ColorDepths into Depthif line 6 of dresult contains "False"then put "C" into Modeelse put "B" into ModeSetMode Mode,Depthend mouseUpglobal SavedVideoanswer "Video mode :" with "Cancel" or "Black" or "Color"if it is "Cancel" then exit mouseUpput it into Modeask "Video depth : (1.." & item 5 of SavedVideo & ")" with 1if it is empty then exit mouseUpput it into Depthask "Screen number : (nothing,*,1.." & number of lines of SavedVideo¬& ")"if it ≠ emptythen SetMode Mode,Depth,itelse SetMode Mode,Depth</script>
    </part>
    <content>
        <layer>background</layer>
        <id>78</id>
        <text>® 1992 ATG, Inc.All Rights Reserved</text>
    </content>
    <content>
        <layer>background</layer>
        <id>89</id>
        <text>5:07 PM</text>
    </content>
    <content>
        <layer>background</layer>
        <id>88</id>
        <text>Student HomeCard 3.0</text>
    </content>
    <name>Home Cards</name>
    <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞Script from stack: Home (Browser)THE MESSAGE HANDLERS IN THIS SCRIPT:deleteHCLine,selectHCLine,goHCStack,newLink,updateHCPathsTHE FUNCTION HANDLERS IN THIS SCRIPT:selectHCFile,lastHCItem,getHCPathName,stringIsInContainer,tabToCommacommaToTab∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞-----  Open/Resume Scripts  ----------------------------------------on openStackglobal WhichHomeCard,SuperStudentChooser,SuperStudentControlglobal AllCardsshow menubar -- needed for the "Administration" menuif WhichHomeCard is not empty then go to card WhichHomeCard-- remove any similar menusif there is a menu "Administration" then delete menu "Administration" -- ∆if the visible of bg button id 90 is truethen hide bg button id 90hide msgif the short name of me is "Home"thencreateMenuAdministrationMakePopUpListLockSHCput cd field id 273 of cd id 6381 into SuperStudentChooserput cd field id 274 of cd id 6381 into SuperStudentControlend ifpass openStack -- so others can use itend openStackon closestackglobal SuperUif "Administration" is in the menus and (the short name of this stack is "Home")then delete menu "Administration" -- ∆enable menuitem "Print Report..." of menu "File"enable menuitem "Quit Hypercard" of menu "File"enable menu "Go"enable menu "Edit"pass closeStack -- so others can use itend closestackon openBackgroundglobal AllCards,SuperU-- Requires handlers: createTheMenus,updateHomeMenu-- make the "Administration" menu if necessaryif the visible of bg button id 90 is truethen hide bg button id 90MakePopUpListif SuperU is not truethenChangeApplecreateTheMenusLockSHCend ifpass openBackground -- so others can use itend openBackgroundon closeBackground-- Requires handler: updateHomeMenuglobal WhichHomeCardput short name of this card into WhichHomeCardif the visible of bg button id 90 is truethenset lockmessages to truesend mouseup to bg button id 90set lockmessages to falseend ifpass closeBackground -- so others can use itend closeBackgroundon suspendStackglobal SuperUif the visible of bg button id 90 is truethenset lockmessages to truesend mouseup to bg button id 90set lockmessages to falseend if-- ∆ remove our custom menu when exitingif "Administration" is in the menus and (the short name of this stack is "Home")then delete menu "Administration" -- ∆put (cd fld "User Name" of cd "User Preferences") into UserNameenable menuitem "Print Report..." of menu "File"enable menuitem "Quit Hypercard" of menu "File"enable menu "Go"enable menu "Edit"pass suspendStack -- so others can use itend suspendStackon resumeStackglobal AllCards-- Requires handlers: createTheMenus,updateHomeMenu-- make the "Administration" menu if necessarycreateTheMenus trueif the visible of bg button id 90 is truethen hide bg button id 90-- update Administration menu for this bkgndMakePopUpListLockSHCpass resumeStack -- so others can use itend resumeStackon opencardset the name of bg button id 95 to line 1 of bg field id 96 && " " & "(" &¬number of this cd && "of" && number of cards of this bg & ")"pass opencard --so others can use itend opencard-----  Delete Line Script  -----------------------------------------on deleteHCLine theField-- Requires handlers: disallowInterruption,selectHCLine-- Requires handlers: allowInterruption,trackFieldSelectionif bg fld theField is empty then exit deleteHCLinedisallowInterruptionrepeat until the mouseClickif the mouseLoc is not within the rect of bg field theFieldthen set cursor to handelse set cursor to 3end repeatallowInterruptionif the clickLoc is not within rect of bg field theFieldthen exit deleteHCLineput the clickLine into lineClickedput word 2 of lineClicked into theLineput value(lineClicked) into theLineDataif theLineData = empty then exit deleteHCLine-- confirm deletion of the selected itemif the optionKey is not down thenanswer "Delete “" & theLineData & "” from this list?" with "Cancel" or "OK" -- ∆if it ≠ "OK" thenselect emptyexit deleteHCLineend ifend ifdelete lineClicked -- delete it-- ∆ "Apps for Docs" is a hidden fieldif theField is "Documents"then delete line theLine of bg field "Apps For Docs"end deleteHCLine-----  More 'O Mine JD ® Apple  --------------------------------------on CreateNewCardglobal AllCards,thename,buttonScriptdisallowinterruptionask "What would you like to name the new card?"if it is empty or it is "Cancel"then exit CreateNewCardput it into NewCardNameanswer "Do you wish to create a button to the new card on this card? (access to the card will already be provided by the pop-up menu)" with "Cancel" or "Yes" or "No"if it is "Cancel"thenexit CreateNewCardelse if it is "Yes"thenpush cardhide msgdoMenu "New Button"hide button "New Button"show button "New Button"set style of button "New Button" to transparentset icon of button "New Button" to 24241choose button toolput ((the number of chars of NewCardName) *5) into thewidthselect button "New Button"set rect of button "New Button"  to 122,207,(122 + thewidth + 5),255set autohilite of button "New Button"  to trueset name of button "New Button" to NewCardNamechoose the browse toolshow bg button id 90put "Drag the card button where you want it and click the DONE Button"-- now construct temporary script for the new buttonput "on mouseStilldown" & return into buttonScriptput "put the name of me into tempname" & return after buttonscriptput "dragon " & tempname & return after buttonScriptput "end mouseStilldown" & return after buttonScriptset script of button NewCardName to buttonScript-- now construct script for the new buttonput "on mouseUp" & return into buttonScriptput "visual effect zoom open" & return after buttonScriptput "go card" && quote & NewCardName & quote & return after buttonScriptput "end mouseUp" & return after buttonScriptput NewCardName into TheNameset lockscreen to truedomenu "New Card"set the name of this card to NewCardNameput field "Copyright" of cd "Home" into bg field "Copyright"put field "Title" of cd "Home" into bg field "Title"put NewCardName into bg field id 96set the name of bg button id 95 to line 1 of bg field id 96pop cardMakePopUpListset lockscreen to falseexit CreateNewCardelse if it is "No"thendomenu "New Card"put field "Copyright" of cd "Home" into bg field "Copyright"put field "Title" of cd "Home" into bg field "Title"put NewCardName into bg field id 96set the name of bg button id 95 to line 1 of bg field id 96MakePopUpListset lockscreen to falseend ifend CreateNewCard-----  Miscellaneous Scripts  --------------------------------------on selectHCLine theLine,theFieldselect char 1 to ((number of chars in (line theLine of the target)) + 1) of (line theLine to (theLine + 1) of the target)end selectHCLineon goHCStack whatStack-- open in new window if "Open stack in new window" check box is checkedif last character of whatStack = returnthen delete last character of whatStackset cursor to watchif hilite of bg btn id 48 then go stack whatStack in new windowelse go stack whatStackif the result ≠ empty and the result ≠ "Cancel"then answer "Couldn't open" && "“" & whatStack & "”" -- ∆ there's a problemend goHCStackfunction selectHCFile prompt,filter-- displays dialog for selection of a particular fileTypeif filter is not empty then answer file prompt of type filterelse answer file promptif (it is empty) or (the result = "Cancel")then exit to HyperCardreturn it -- otherwise return the selected file pathend selectHCFilefunction lastHCItem delim,theText-- returns the portion of <theText> that follows the last <delim>if delim is in theText thenput lastHCItem(delim,char offset(delim,theText) + 1 to ¬length(theText) of theText) into theTextend ifreturn theTextend lastHCItemfunction getHCPathName longName-- Requires function handler: lastHCItem-- return the path to the fileput lastHCItem(":",longName) into fileNamereturn char 1 to (length(longName) - length(fileName)) of longNameend getHCPathNameon updateHCPaths fileType,thePath-- Requires function handler: stringIsInContainer-- update the appropriate path card for the newly created buttonglobal Stacks,Applications,Documents-- put "s" after fileType  -- ∆ so it will match card & global namedo "get" && fileType --  put the appropriate global into "it"--  exit this handler if the global already contains the pathif stringIsInContainer(thePath,it) then exit updateHCPathslock screenset cursor to watchset lockmessages to true -- avoid open messagesset lockrecent to true -- don't make any card miniaturespush card -- remember where we are-- go to the correct path card in the home stackgo card fileType of stack "Home" -- ∆-- update the "Paths" field with the new pathget bg field "Paths" of card fileTypeif (it ≠ empty) and (the last char of it ≠ return)then put return before thePathput thePath after bg field "Paths" of card fileType-- cause the appropriate global variable to be updateddo "put bg field Paths into" && fileTypepop card -- return to where we wereend updateHCPathsfunction stringIsInContainer theString,theContainer--  check to see if theString is a full line of theContainerif (theString = first line of theContainer) or ¬(theString = last line of theContainer) then return trueelse if theContainer contains return & theString & return ¬then return truereturn false -- not found, so return falseend stringIsInContainerfunction tabToComma theTextrepeat until numToChar(9) is not in theTextput "," into char offset(numToChar(9),theText) of theTextend repeatreturn theTextend tabToCommafunction commaToTab theTextrepeat until "," is not in theTextput numToChar(9) into char offset(",",theText) of theTextend repeatreturn theTextend commaToTabon ChangeStudentDAccessglobal SuperStudentChooser,SuperStudentControl-- this handler requires the following resources:-- DLOG "Find",DITL "Find",XFCN "ModalDialog"if SuperStudentChooser is falsethen put "ON" into line 5 of dialogInputif SuperStudentControl is falsethen put "ON" into line 4 of dialogInputput ModalDialog("find",dialogInput,screenCenter) into dialogOutputif dialogOutput is "Cancel" then exit ChangeStudentDAccessif line 5 of dialogOutput is "ON"thenput false into SuperStudentChooserput SuperStudentChooser into cd field id 273 of cd id 6381elseput true into SuperStudentChooserput SuperStudentChooser into cd field id 273 of cd id 6381end ifif line 4 of dialogOutput is "ON"thenput false into SuperStudentControlput SuperStudentControl into cd field id 274 of cd id 6381elseput true into SuperStudentControlput SuperStudentControl into cd field id 274 of cd id 6381end ifend ChangeStudentDAccesson idleif (there is a bkgnd field id 89) and (the selectedField is empty)then put the Short time into bkgnd field id 89pass idleend idle---------------------------------------------------------------------------   Making IIe Startup Buttons-----------------------------------------------------------------------on AppleIIEglobal fullPathglobal TheName,buttonScripthide msgput "Select the IIe Startup Application:" into fooanswer file foo of type APPLput it into fullPathput LastPathItem(fullpath) into TheNameif TheName ≠ "IIe Startup"thenanswer "You did not select the IIe Startup Application. Please try again."exit AppleIIEend ifrepeat with i = length of FullPath down to 1if character i of FullPath is ":"thenexit repeatelsedelete character i of FullPathend ifend repeatput return & fullpath after bg field id 6 of card "Applications"put return & theName after bg field id 6 of card "Applications"if fullPath = empty then exit AppleIIEdoMenu "New Button"hide button "New Button"show button "New Button"set style of button "New Button" to transparentset icon of button "New Button" to 22044choose button toolput ((the number of chars of thename) *6) into thewidthselect button "New Button"set rect of button "New Button"  to 122,207,(122 + thewidth + 5),255set autohilite of button "New Button"  to trueset name of button "New Button" to TheNamechoose the browse toolshow bg button id 90put "Drag the new button where you want it and click the DONE Button"-- now construct temporary script for the new buttonput "on mouseStilldown" & return into buttonScriptput "put the name of me into tempname" & return after buttonscriptput "dragon " & tempname & return after buttonScriptput "end mouseStilldown" & return after buttonScriptset script of button TheName to buttonScript-- now construct script for the new buttonput "on mouseUp" & return into buttonScriptput "open" & quote & theName & quote & return after buttonScriptput "end mouseUp" & return after buttonScriptend AppleIIE---------------------------------------------------------------------------   Making IIe ProDos Application Buttons-----------------------------------------------------------------------on PDOSAPPglobal fullPathglobal TheName,buttonScriptif bg field id 6 of card "Applications" contains "IIe Startup"thenelseput "Select the" && quote & "IIe Startup" & quote && "Application:" into fooanswer file foo of type APPLput it into fullpathput LastPathItem(fullpath) into Applif Appl ≠ "IIe Startup"thenanswer "You did not select the IIe Startup Application. Please try again."exit PDOSAPPend ifrepeat with i = length of FullPath down to 1if character i of FullPath is ":"thenexit repeatelsedelete character i of FullPathend ifend repeatput return & fullpath after bg field id 6 of card "Applications"end ifput "IIe Startup" into Applput "Select a ProDos System Document:" & return & "(Typically having .SYSTEM in the name)" into fooanswer file foo of type PSYSput it into fullpathput FullPath into longnameput LastPathItem(fullpath) into shortnameput ":" into stackmeif fullPath = empty then exit PDOSAPPput LastPathItem(fullpath) into TheNamerepeat with i = length of FullPath down to 1if character i of FullPath is ":"thenexit repeatelsedelete character i of FullPathend ifend repeatput return & fullpath after bg field id 6 of card "Documents"doMenu "New Button"hide button "New Button"show button "New Button"set style of button "New Button" to transparentset icon of button "New Button" to 31320choose button toolput ((the number of chars of thename) *6) into thewidthselect button "New Button"set rect of button "New Button"  to 122,207,(122 + thewidth + 5),255set autohilite of button "New Button"  to trueset name of button "New Button" to TheNamechoose the browse toolshow bg button id 90put "Drag the new button where you want it and click the DONE Button"-- now construct temporary script for the new buttonput "on mouseStilldown" & return into buttonScriptput "put the name of me into tempname" & return after buttonscriptput "dragon " & tempname & return after buttonScriptput "end mouseStilldown" & return after buttonScriptset script of button TheName to buttonScript-- now construct script for the new buttonput "on mouseUp" & return into buttonScriptput "open " & quote & theName & quote && "with" && quote & appl & quote & return after buttonScriptput "end mouseUp" & return after buttonScriptend PDOSAPP</script>
</background>